home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / pandora.lzs / TTCHAR.MF < prev    next >
Text File  |  1991-08-15  |  2KB  |  77 lines
  1. %*****************************************************************************
  2. %        Copyright (c) 1989 by N. N. Billawala
  3. %*****************************************************************************
  4.  
  5.  
  6. % ttchar.mf  characters for typewriter text set
  7.  
  8. % 5 characters
  9.  
  10.  
  11. iff OK "x":  "Up arrow";
  12.   beginchar(oct"013",num_width_c#+c_mono#,cap#,0); 
  13.   pickup mathpen rotated -oblique;
  14.   top z1=(.5w,h)//; bot z2=(.5w,-d)//;
  15.   arrow.t(z1,w,.2h);
  16.   draw z1--z2;  
  17. adjust(.5num_fit_c#+m_a*c_mfit#,.5num_fit_c#+m_a*c_mfit#);
  18. show_character; endchar;
  19.  
  20.  
  21. iff OK "x":  "Down arrow";
  22.   beginchar(oct"014",num_width_c#+c_mono#,cap#,0); 
  23.   pickup mathpen rotated -oblique;
  24.   top z1=(.5w,h)//; bot z2=(.5w,-d)//;
  25.   arrow.b(z2,w,.2h);
  26.   draw z1--z2;  
  27. adjust(.5num_fit_c#+m_a*c_mfit#,.5num_fit_c#+m_a*c_mfit#);
  28. show_character; endchar;
  29.  
  30.  
  31. iff OK "x":  "Single non-directional quote";
  32.   beginchar(oct"015",I_w*width#+a_mono#,cap#,0);
  33.   save_num(head)=accent_dot_diameter; save_bool(prime)=true;
  34.   top z1=(round(.5w),.75[xheight,cap]-.5head)//;
  35.   ref1=comma(z1,head,min(.6xheight,1.5pt),accent_thin_end,.5);
  36.   p1=ref1 rotatedaround (z1,-oblique);
  37.   showpoints(1);
  38. adjust(v_a*fitbasis.lc#+m_a*a_mfit#,v_a*fitbasis.lc#+m_a*a_mfit#); 
  39. show_character; endchar;
  40.  
  41. % rotation and slant of position with obliqueness
  42.  
  43.  
  44. iff OK "x":  "Blank space character"; 
  45.   beginchar(oct"040",.5width#+mono#,math_axis#,descender#); 
  46.   save_num(edge_distance)=max(1,round(.1w));
  47.   pickup pensquare scaled blank_space_thickness rotated -oblique;
  48.   top lft z1=(edge_distance,.3h)//;
  49.   bot lft z2=(edge_distance,-.5d)//;
  50.   bot rt z3=(w-edge_distance,-.5d)//;
  51.   top rt z4=(w-edge_distance,.3h)//;  
  52.   draw z1--z2--z3--z4;
  53. adjust (0,0); show_character; endchar;
  54.  
  55. % use different pen for softness
  56. % no slant of shape with obliqueness
  57.  
  58.  
  59. iff OK "x":  "Double non-directional quotes";
  60.   beginchar(oct"042",accent_w*width#+b_mono#,cap#,0);
  61.   save_num(head)=accent_dot_diameter; save_bool(prime)=true;
  62.   top z1=(round(.5head),.75[xheight,cap]-.5head)//;
  63.   top z2=(round(w-.5head),y1)//;
  64.   ref1=comma(z1,head,min(.6xheight,1.5pt),accent_thin_end,0);
  65.   ref2=comma(z2,head,min(.6xheight,1.5pt),accent_thin_end,0); 
  66.   p1=ref1 rotatedaround (z1,-oblique);
  67.   p2=ref2 rotatedaround (z2,-oblique);
  68.   showpoints(1,2);
  69. adjust(v_a*fitbasis.lc#+m_a*b_mfit#,v_a*fitbasis.lc#+m_a*b_mfit#); 
  70. show_character; endchar;
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.